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Mengenal Macro Excel 
dan VBA 


Microsoft Excel adalah aplikasi yang sangat powerful dan fleksibel 
serta memiliki kemampuan yang sangat hebat. Namun demikian, 
Excel tidak memberikan opsi dan tidak mengizinkan Anda untuk 
melakukan hal-hal tertentu melalui user interface yang ada. Oleh 
karena itu, diperlukan pemrograman Excel yang akan dijelaskan 
dalam buku ini. 


Contohnya ketika Anda ingin memilih sel-sel tertentu berdasarkan 
kriteria tertentu pula. Misalnya memilih semua sel yang memiliki nilai 
antara 100 hingga 200, atau menurut kriteria lainnya. Untuk mela- 
kukan hal ini dibutuhkan teknik pemrograman macro di Excel. 


141 Hal-Hal yang Harus Diketahui Seputar Macro Excel 


Pada umumnya, ketika belajar mengenai pemrograman Excel, ada 
beberapa hal yang perlu Anda ketahui. Berikut ini penjelasan 
beberapa hal tersebut. 


1. Visual basic editor. 


Ini adalah lingkungan pemrograman di mana pemrograman 
Excel dilakukan. Ini sering disebut sebagai Visual basic editor 
atau Excel VBA IDE (integrated development environment). 


2. Dasar-dasar pemrograman di VBA. 


Berikutnya Anda perlu belajar dasar-dasar dari bahasa 
pemrograman yang digunakan oleh Excel. Bahasa ini disebut 
Visual basic for applications atau sering disingkat sebagai VBA. 


Sebetulnya, VBA tidak cuma dipakai oleh Excel saja, tapi juga 
dipakai di semua aplikasi berbasis Microsoft Office, seperti 
Access, Word, PowerPoint, dan sebagainya. 


Aplikasi-aplikasi yang menggunakan VBA ini sering disebut 
sebagai aplikasi host untuk VBA. 


3. Model objek dan Model objek dari Excel. 


Tiap aplikasi host VBA seperti Word, Excel dan PowerPoint 
selalu memberi pelengkap pada bahasa VBA dengan menyedia- 
kan model objek. Model objek ini adalah objek yang akan diatur 
dengan kode menggunakan objek yang khusus untuk aplikasi 
tersebut. 


Contohnya VBA di Excel mengenal beberapa model objek, yang 
nantinya akan ditangani oleh VBA. Antara lain workbook, 
worksheet, sel, baris, kolom, range, chart, pivot tabel, dan 
sebagainya. 


Programmer Excel harus familier dengan berbagai model objek. Dan 
model objek di Excel ini sangat banyak jumlahnya. Bahkan kalau 
dihitung, ada lebih dari 200 objek yang berbeda. Tapi jangan takut 
duluan, karena Anda harus familier paling tidak dengan beberapa 
objek saja untuk bisa memprogram di VBA Excel. 


Dan untungnya, kebanyakan action yang Anda perlukan hanya 
berkaitan dengan kurang lebih tujuh objek saja, seperti Application, 
Range, WorksheetFunction, Workbook, Worksheet, PivotTable dan 
Chart. 


Jadi, apabila Anda tertarik memprogram agar bisa mengefisienkan 
pekerjaan di Excel atau memang mau menjadi programmer 
profesional yang code for food, maka Anda akan sangat menikmati 
keuntungan kalau bisa memanipulasi Excel pada level program. 


Dan karena pengaksesan objek model di Excel ini menggunakan 
bahasa visual basic for application, maka ketika Anda sudah 
menguasai VBA untuk Excel, maka Anda juga berarti setengah 
menguasai bahasa vba lain untuk Word, PowerPoint dan Access. 
Jadi, satu merengkuh dayung, dua tiga pulau terlampaui. 


1.2 Apa Itu Bahasa Pemrograman 


Membuat macro di Excel membutuhkan penguasaan tentang bahasa 
pemrograman. Apa sebenarnya bahasa pemrograman itu? Bahasa 
pemrograman atau dalam bahasa Inggris disebut programming 
language merupakan bahasa khusus dan terbatas yang hanya 
dipahami oleh komputer pada tingkatan tertentu. 


Secara umum, bahasa pemrograman dibagi menjadi tiga tingkatan: 


1. Bahasa pemrograman yang didesain untuk memanipulasi 
komputer pada level rendah, yaitu untuk memanipulasi sistem 
operasi atau bahkan pada level hardware. Ini disebut bahasa 
pemrograman tingkat rendah alias low level. Contoh bahasa 
pemrograman di level ini adalah bahasa assembly. 


2. Bahasa pemrograman yang digunakan untuk membuat aplikasi 
standar, seperti program MS Office, AutoCAD, dan sebagainya. 
Ini adalah bahasa tingkat tinggi atau high-level language. 
Contohnya BASIC, COBOL, Fortran, C, C--4 dan Visual Basic. 


3. Bahasa pemrograman yang ditujukan untuk memanipulasi 
program aplikasi, disebut bahasa pemrograman level aplikasi. 
Contohnya VBA Excel ini. 


Pembagian bahasa pemrograman ke tiga tingkatan di atas, tidaklah 
baku karena itu wajar kalau menurut beberapa orang, dan banyak 
pihak lain yang juga menggolongkan beberapa bahasa pemrog- 
raman tertentu ke level yang lain. 


Tiap bahasa pemrograman memiliki sintaks-sintaks yang berbeda. 
Beberapa sintaks dari bahasa pemrograman lebih mudah dipahami, 
dan sebagian yang lain lebih sukar. 


Ketika melakukan pemrograman, ada dua hal yang perlu Anda 
perhatikan agar bisa menghasilkan kode program yang bagus: 


1. Dalam memprogram, pentingkan keterbacaan, dan bukan 
malah membuat program yang susah dibaca agar dianggap 
lebih mahir. 


2. Isi program Anda dengan komentar-komentar yang banyak. 


Jangan sering-sering menggunakan keyword yang membuat 
program susah dibaca, misalnya menggunakan statement GoTo 
yang memungkinkan program meloncat-loncat tidak karuan. 


Program GoTo dirancang untuk me-redirect penjalanan program ke 
lokasi lain. Ini memang praktis, tapi membuat program tidak bisa 
dibaca dengan baik. 


1.3 Mengenal Environment Visual Basic Editor 


Langkah pertama untuk menjadi programmer VBA di Excel adalah 
mengenal lingkungan kerja IDE (integrated development 
environment) yang dipakai untuk melakukan pemrograman VBA. 


Cara untuk menjalankan visual basic editor ini adalah dengan klik 
pada tombol ALT4#F11 di keyboard saat membuka Excel, maka 
terlihat tampilan berikut. 


# File Edit View Insert Format Debug Run Tools Add-Ins Window Help 
& @ ini, Coli 


(5 Micosoft Excel Obje/ 4) (General) "| |Declarations) 
Sheeti (Sheeti) 
Sheet2 (Sheet2) " 
« m EL 


DisplayPageBre:True 
IDisplayRightToL False 
(EnableAutoFilte/ False 
EnableCakculatic True 
EnableFormatCc True 
EnableOutiining False 
(EnablePivotTabl False 
EnableSelection/O - xINoRestric ” 


Gambar 1.1 Tampilan dari Visual Basic Editor 
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Jendela ini lokasinya paling kiri atas di bawah toolbar. Tampilannya 
terlihat seperti berikut. 


Project - VBAProject Xx) 
ES ju | -| 
E-88 VBAProject (Booki) 

--€3 Microsoft Excel Objects 

EB) Sheeti (Sheet1) 

) Sheet2 (Sheet2) 

EB) Sheet3 (Sheet3) 

& ThisWorkbook 


Properties - Sheetl xl 


Gambar 1.2 Jendela Project 


Perhatikan bahwa project explorer ini memiliki bentuk bertingkat 
mirip dengan Windows Explorer. Node bagian paling atas merepre- 
sentasikan proyek VBA Excel yang sedang dibuka. 


Tampilan dari tiap proyek bisa diperluas atau dipersempit dengan 
mengklik kotak kecil di sebelah kirinya mirip dengan Windows 
Explorer. Hanya ada satu proyek untuk satu workbook Excel. 


Tiap proyek memiliki nama, di mana programmer bisa 
menggantinya kalau perlu. Nama default yang diberikan di proyek 
selalu seperti berikut: 


NamaProjek (Namaworkbook) 


Di mana NamaProjek adalah nama dari proyek, sementara 
NamaWorkbook adalah nama dari workbook Excel. 


Sebuah proyek berisi konten-konten tertentu. Anda bisa melihatnya 
di bagian bawah dari top level langsung. Di situ ada node-node yang 
bernama: 


1. Microsoft Excel Object 


2. Form 
3. Modules 
4. Class 


Di bawah node Microsoft Excel Objects, Anda bisa melihat node- 
node untuk tiap worksheet dan chartsheet yang ada di workbook. 
Ada juga node khusus yang bernama ThisWorkbook yang mere- 
presentasikan workbook itu sendiri. Kode ini menyediakan akses ke 
jendela kode untuk semua objek, di mana programmer nantinya bisa 
menuliskan kodenya. 


Di bawah node Form, ada node untuk tiap form di proyek. Form 
sering pula disebut UserForm yang merupakan antarmuka form yang 
Anda buat di VBA Excel. Di bawah node Modules, ada node untuk 
tiap modul kode yang ada di proyek. Modul kode ini sering juga 
disebut modul standar. Sementara di bagian bahwa modul Classes, 
terdapat node untuk tiap modul class di proyek. 


Fungsi utama dari Project Explorer adalah agar kita bisa melihat apa 
saja yang ada di proyek kita dan memudahkan menavigasi 
komponen yang ada di proyek. Dengan mengklik worksheet atau 
node Forms, kita bisa memilih objek yang akan dilihat. 


Di bawah tiap node di Project Explorer dengan nama Microsoft Excel 
Objects, selalu ada node yang bertuliskan ThisWorkbook. Node ini 
mengacu pada workbook dari proyek beserta modulnya yang 
bertugas menyimpan kode event untuk workbook. 


Project - VBAProject xl 
ES - 


VBAProject (Booki) 
H-3 Microsoft Excel Objects 

FE) Sheeti (Sheet1) 
#8) Sheet2 (Sheet2) 
ES) sheet3 (Sheet3) 
#1 


Gambar 1.3 Objek ThisWorkbook 
Jadi, tujuan event ini agar programmer VBA bisa menuliskan kode 
yang akan tereksekusi saat event tersebut dipicu. Contohnya: 
1. Event Open yang terjadi ketika workbook dibuka. 
2. Event BeforeClose yang terjadi sebelum workbook ditutup. 


3. Event NewSheet yagn akan terjadi ketika worksheet baru 
ditambahkan ke workbook. 


4. Event BeforePrint yang terjadi sebelum workbook atau apa pun 
tercetak. 


Di bagian bahwa tiap objek Microsoft Excel Objects, terdapat node 
untuk tiap sheet. Tiap node ini merepresentasikan worksheet atau 
chartsheet dan juga komponen lainnya. Excel mengenal 7 event 
berkaitan dengan worksheet dan chartsheet. 


Sebuah modul atau standard module, adalah modul kode yang berisi 
prosedur umum, baik fungsi dan subrutin. Prosedur ini bisa berupa 
makro yang didesain untuk dijalankan user. Atau bisa mendukung 
program yang digunakan oleh program lain. 


Modul class merupakan modul kode yang berisi kode berkaitan 
dengan objek kustom. Kode di sini nantinya bisa digunakan untuk 
yang lain. 


Objek UserForm digunakan untuk membuat kotak dialog yang 
terkostumisasi. Anda bisa memasukkan objek-objek ini ke objek 
Microsoft Excel dengan klik kanan lalu klik Insert » jenis objek. 


Project - VBAProject ng 
na Gu 2 
(9 Book - ThisWorkbook (Code) 

E & 'VBAProject (Book1) 


ES Micosoft Excel Objects (tcenerat 
H Sheet2 (S — “1 O-pkl - Sheet (Code) 
cet2 (5 PJ View Code (ee 
Sheet3 (S berat) 
£) Tnisworkt FB View Object 


VBAProject Properties.. 


Insert » Ike UserForm 
Import File. & 3 


Export File... 


Properties - Sheeti 
Pa bin. 
'Sheet1 Worksheet 


Mphabetc | categorzed M| Dockabie 


Hide 


e Sheet 
(DisplayPageBreak False 
DisplayRightToLef False 


Gambar 1.4 Menu Insert »- jenis objek untuk memasukkan objek 


Kalau sudah, maka objek tersebut akan masuk. 


Project - VBAProject xl 
aa ja 2 
E & VBAProject (Book1) 

E-$ Migosoft Excel Objects 
Sheeti (Sheet1) 
Sheet2 (Sheet2) 

E) Sheet3 (Sheet3) 
& ThisWorkbook 
E-63 Forms 


5 UserForm 


Eu) 


Properties - UserForml x| 


Gambar 1.5 Objek Form yang dimasukkan sudah terlihat 
di jendela Project 


139 Jendela Properties 


Jendela Properties akan menampilkan properti objek dan memung- 
kinkan programmer mengubahnya. Tampilan dari jendela Properties 
ini berubah-ubah sesuai dengan item dari objek yang dipilih. 


Ketika modul nama proyek dipilih, maka hanya terlihat Name saja. 


Project - VBAProject xl 


F3 Migosoft Excel Objects 
EB) Sheeti (Sheeti) 
FR) Sheet2 (Sheet2) 
ES) Sheet3 (Sheet3) 
&) ThisWorkbook 
-- 3 Forms 
UserFormi 


Properties - VBAProject x| 
VBAProject Project - 
Alphabetic | categorized | 
VBAProject 


Gambar 1.6 Ketika nama proyek dipilih, maka hanya atribut Name 
yang ditampilkan di Properties 


Jendela Properties ini bisa dipakai untuk mengubah beberapa 
properti dari objek ketika kode sedang tidak dijalankan, alias pada 
saat desain saja. Tapi beberapa properti ini hanya bersifat read only 
dan tidak bisa diubah. 


Sementara kalau yang diklik objek lain seperti Form, maka tampilan 
jendela Properties akan terlihat berubah seperti berikut ini. 


Properties - UserFormi xl 


UserFormi1 UserForm bad | 


Alphabetic | categorized | 


UserFormi 
BackColor Li aH300000c| 5 
IM 213000001 
O - fmBorderst 
Tes 

0 - fmCydeallF 
32000 

True 

Tahoma 

IE 243000001 
180 


" 


MousePointer 0 - fmMousePo 
Picture (None) 
PictureAlignmeni 2 - fmPictureAl 
PictureSizeMode 0 - fmPictureSi: 
PictureTiling False 


Niat. Elsa 


Gambar 1.7 Tampilan Properties dari Form akan berkaitan 
dengan objek-objek dari Form ini 


133 Jendela Kode 


Jendela kode menampilkan kode yang berkaitan dengan item di 
jendela Project. Untuk melihat jendela kode ini, Anda bisa mengklik 
View » Codes atau klik F7 untuk menampilkan jendela kode ini. 


Moo Va er GA BEE 


: File Edit | Miew | Insert Format Debug Rui 
: -k Code F 
Project-VBAPI | Object Shift: F7 
Es Gal Definition Shift- F2 


Last Position  Ctri-Shift-F2 


c 


sa 


as Micr "S2 Obiect Browser si 


Gambar 1.8 Menu View » Code untuk menampilkan kode 


Umumnya, sebuah modul kode (standard, class, atau form) bisa 
berisi satu atau lebih prosedur. IDE dari jendela kode ini, bisa 
menampilkan satu prosedur saja atau semua prosedur secara ber- 
samaan. 


Il Bookt - UserFormi (Code) bea 


| commanaButtont 5) felick 


IKI 


»| 


Private Sub CommandButton1 Click () 
He.caption - "Test" 


End Sub 


Gambar 1.9 Jendela Kode 


Di bagian atas jendela Kode, ada dua list box. Box Object berisi 
daftar objek, seperti form dan control yang berkaitan dengan proyek 
yang ada sekarang. Sementara yang satunya adalah kotak prosedur 
yang berisi daftar semua prosedur yang berkaitan dengan objek yang 
terpilih di kotak Object. 


Konten selengkapnya dari box ini tergantung pada tipe objek yang 
terpilih di project explorer. Kalau workbook atau sheet yang terpilih, 
maka kotak Object hanya berisi dua entri, general, dan objek yang 
sedang dibuka. 


(8) Bookl - ThisWorkbook (Code) 
(General) - (Deci 


Gambar 1.10 Ketika dipilih objek workbook maka yang terlihat 
adalah objek General dan Worksheet 


10 


Kalau misalnya dipilih prosedur BeforeClose di kotak prosedur, Excel 
otomatis membuat kode yang akan menangani ketika objek ini 
hendak dimatikan. 


open “| 


“TActivate & F 
Addinlnstall — 

AddinUninstall 

AfterSave | 

AfterXmlExport - 

AfterXmlimport 

BeforeClose — )x 

BeforePrint 

BeforeSave 

BeforeXmlExport 

BeforeXmilmport 

Deactivate Pn 


Gambar 1.11 Pengisian prosedur BeforeClose 


Kalau sudah dipilih, otomatis di jendela kode akan menampilkan 
kode seperti berikut. 


R 


£) Bookl - ThisWorkbook (Code) kosa 
(workbook ng (Beforeciose - 


Private Sup Workbook BeforeClose (Cancel As Boolean) 


End Sub 


Gambar 1.12 Menu BeforeClose 


Kode ini menjelaskan kode yang akan menangani event ketika 
workbook akan ditutup. 
Private Sub Workbook BeforeClose (Cancel As Boolean) 


“kode di sini untuk menangani event 
End Sub 


Ketika objek Form dipilih di project explorer, maka kotak object akan 
berisi daftar semua objek yang ada di form. Misalnya command 
button dan sebagainya. 


1" 


K1 Bookl - UserFormi (Code) 


CommandButton1 
UserForm 


End Sub 


Gambar 1.13 Contoh object yang ditampilkan di list box 


Prosedur yang dimilikinya pun akan berkaitan dengan objek yang 
dipilih, misalnya kalau untuk button, maka terlihat prosedur seperti 
click, DblClick dan sebagainya. 


Il Bookt - UserFormi (Code) boa 
| commanaButtont “| Click - 
BeforeDropOrPaste . 
Private Sub CommandButton1 Click (/biCiick 
Me.Caption - "Test" Enter 
Error 
End Sub Exit 
KeyDown — 
KeyPress 
KeyUp 
MouseDown 
MouseMove 
MouseUp v. 
Hi 
pal FIK » 
——— we  —Ss 6€—. 


Gambar 1.14 Prosedur untuk objek commandButton 


134 Shortcut Navigasi 


Ketika bekerja dengan IDE dari VBA, ada baiknya Anda mengenal 
beberapa shortcut yang dipakai di sini. Shortcut-shortcut navigasi ini 
akan memudahkan pekerjaan Anda dalam memprogram. 


Berikut ini beberapa shortcut untuk navigasi: 


1. F7 


Membuka jendela kode. 
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F4 

Membuka jendela properties. 
CTRL#-R 

Membuka jendela proyek. 

CTRL:G 

Membuka jendela intermediate. 
ALT4F11 

Berpindah antara Excel dan IDE VB. 


Sementara kalau ada di tampilan kode, shortcut berikut ini penting: 


1. 


F1 
Menampilkan item help di bawah kursor. 
SHIFT-F2 


Melihat definisi item di bawah kursor ini, jika kursor di atas fungsi 
tertentu atau subrutin, maka klik pada SHIFT4-F2 akan menam- 
pilkan definisi dari prosedur tersebut. 


CTRL4SHIFT4F2 
Kembali ke posisi terakhir dari editing yang sedang dilakukan. 


Sementara ketika men-tracking melalui kode, Anda bisa menggu- 
nakan beberapa shortcut berikut ini: 


1. 


F8 

Step into. 
SHIFT-F8 

Step over. 
CTRL4SHIFT-F8 
Step out. 
CTRL4F8 


Menjalankan ke kursor. 
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5. P5 
Menjalankan. 


6. CTRL#-BREAK 


Break. 
7. SHIFT4F9 
Guick watch. 
8. F9 
Toggle breakpoint. 


9.  CTRL:SHIFT-F9 


Menghapus semua breakpoint. 


1.4 Macro 


Macro adalah inti dari buku ini. Di awal sejarahnya, macro tersusun 
dari rangkaian keystroke dari keyboard yang direkam dan dialokasi- 
kan shortcut tertentu. Ketika user menjalankan shortcut yang 
bersangkutan, rekaman yang sudah disimpan akan dieksekusi. 
Sekarang ini, Macro sudah lebih canggih, Anda bisa membuat 
program Macro yang yang dapat melakukan tugas dari yang simpel 
hingga yang agak kompleks. 


141 Merekam Macro 


Excel memiliki kemampuan untuk merekam macro yang sangat 
sederhana. Ketika Anda mengklik pada tombol Record new macro 
dari ribbon Excel, maka Excel otomatis akan merekam langkah- 
langkah kita dan menyimpannya ke dalam kode program yang di- 
generate secara otomatis tanpa memiliki parameter. 


Misalnya, apabila kita merekam macro yang melakukan Find & 
Replace, ikuti langkah-langkah berikut: 


1. Siapkan workbook untuk menerima apa yang Anda lakukan. 


2. Kemudian klik ribbon View » Macros » Record Macro. 
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| Ed iew Macros 


Vi 
Record Macro... k 


e 
Record Macro 


KI 


a Record a macro. 


Each of the commands you perform 
will be saved into the macro s0 
that you can play them back again. 


Gambar 1.15 Menu untuk Record Macro 


Isikan nama macro di Macro name. 
Isikan kode pintasan di Shortcut key. 


Tentukan tempat menyimpan makro, kalau di file yang ber- 
sangkutan, pilih This workbook. 


6. Kalau perlu, tentukan penjelasan mengenai macro ini di 
Description. 


Prod Mn NN. sita 
Macro name: 
Caridanganti 
Shortcut key: 
ct /d 
Store macro in: 
This Workbook FA 


Description: 
cari kata tegal dan kati kata slawi 


C3 Ces| 


Gambar 1.16 Mencari penjelasan mengenai macro di Description 


7. Klik OK, lalu lakukan action yang ingin direkam, misalnya Find 
& Replace, lalu ganti teks “tegal” menjadi teks “slawi”. 


Find | Replace 


|| Findwhat: — (tegal 
Replace with: |slawil 


Replaceall | | Rpgace | Lam 


Gambar 1.17 Action find and replace yang akan direkam 


8. Kalau sudah, klik pada View » Macros » Stop recording. 


EC 

3 5: 

Switch | (Macros| 
: Windows " || 


Ed View Macros 


Stop Recording 


— 
(E Use Relative References 
a 


R & 


Gambar 1.18 Menu untuk stop recording 


9. Sekarang Anda bisa melihat macro yang sudah terekam akan 
muncul di Macros » View Macros. 


A 


Macros| 


Ed View Macros 


s5 Record Marcro... 


HS Use Relative References 


Gambar 1.19 Macros » View Macros 


10. Terlihat nama makro yang sudah direkam ada di list yang ada. 


Macros in: | All Open Workbooks “ 
Description 


Cancel 


Gambar 1.20 Pengisian nama makro yang sudah direkam 


11. Untuk menjalankan makro, misalnya kondisi awal, ada beberapa 
sel yang punya teks - “tegal”. 
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» 
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Sl kegat | 
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a 


Gambar 1.21 Beberapa teks di sel dengan isi - “tegal” 


12. Kemudian jalankan dengan klik Run pada jendela Macro atau 
dengan mengklik shortcut yang sudah dibuat sebelumnya. 


Macro name: 


Maros in: | All Open Workbooks “ 


Description 


Cancel 


Gambar 1.22 Klik tombol Run untuk menjalankan macro 


13. Maka otomatis teks di seluruh workbook yang bertuliskan “tegal” 
akan berubah menjadi “slawi”. 


A B Cc TMS 
1 
2 
3 
Tel 
S5 
6 slawi 
7 
8 
9 


Gambar 1.23 Teks yang sudah dibuat akan bertuliskan “slawi” 


14. Untuk melihat kode dari macro yang sudah dibuat, pilih macro 
tersebut di jendela Macro, kemudian klik Edit. 
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Magos in: | All Open Workbooks 3 
Description 


Gambar 1.24 Klik pada tombol Edit sambil memilih makro 
untuk melihat kode yang dihasilkan macro 


15. Hasilnya, muncul tampilan kode dari program. 


&8 Bookl - Module (Code) la 
|icenerar .x) JearidanGanti 


Sub caridanGanti() 
' caridanGanti Macro 
' Keyboard Shortcut: Ctrltg 


Cells.Replace What:-"tegal", Replacement:-"slawi", LookAt:-xlPart, — 
SearchOrder:-x1ByRows, MatchCase:-False, SearchFormat:-False, 
ReplaceFormat:-Fal3e 


End Sub| 


aa 


Gambar 1.25 Tampilan kode dari program 


16. Anda bisa melihat nama makro menjadi nama prosedur. 


Sub caridanGanti () 


' caridanGanti Macro 


' Keyboard Shortcut: Ctrl-g 

Cells.Replace What:-"tegal", Replacement:-"slawi", 
LookAt:-xlPart, 
Searchorder: -x1lByRows, MatchCase:-False, 
SearchFormat :-False, 
ReplaceFormat:-False 


End Sub 


Dalam beberapa situasi, fasilitas macro recorder ini sangat penting 
karena bisa digunakan sebagai alat bantu untuk belajar. Jika Anda 
tidak tahu bagaimana sintaks untuk melakukan sesuatu, maka Anda 
bisa mencoba merekamnya menggunakan macro recorder, dan 
kemudian melihat kodenya untuk disalin di program Anda. 
Contohnya ketika Anda hendak membuat pivot table. 


Tapi, recorder macro ini hanya bisa dipakai untuk merekam situasi 
yang sederhana, dan bukan yang terlalu kompleks. Sementara 
program Excel pada umumnya menuntut situasi yang kompleks, 
yang terlalu rumit kalau mau direkam dengan fasilitas ini. 


1.5 Mengenal Sintake Bahasa Pemrograman VBA 


Untuk bisa mempraktikkan pembuatan proyek macro di VB, Anda 
perlu mengetahui tata cara penulisan sintaks bahasa pemrograman 
VBA. Ibaratnya kalau mau memerintahkan komputer untuk mela- 
kukan tugas tertentu, Anda harus tahu cara memerintahkannya. Di 
subbab ini akan dibahas dasar-dasar dari pemrograman VBA yang 
menjadi dasar untuk semua pemrograman MS Office. 


151 Komentar 


Komentar adalah bagian yang sangat penting di bahasa pemrog- 
raman manapun. Karena fungsinya sangat krusial, yaitu untuk 
memberitahukan programmer apa sebenarnya maksud kode-kode 
yang dituliskan. 


Ini karena bahasa pemrograman walaupun tingkat tinggi sekalipun 
yang seharusnya mudah dipahami, tetaplah “kaku” dan tidak seperti 
bahasa yang kita pakai sehari-hari, sehingga komentar ini membantu 
memudahkan programmer untuk membaca program yang dibuat- 
nya. 


Mungkin programmer kalau baru saja menuliskan kode program 
akan mudah mengingat maksud program yang dibuatnya, tapi kalau 
kode program sudah berumur enam bulan ke atas, biasanya sudah 
banyak lupa apa yang dituliskan kemarin. 
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Cara untuk memberikan komentar di VBA mirip dengan di Visual 
Basic, yaitu dengan tanda petik atas satu. Contoh kodenya seperti 
berikut: 


Private Sub CommandButton1l Click () 
'ini tidak diperhitungkan 

'ini komentar 

Dim a As Integer 

a-1 

End Sub 


Kode di atas tidak diperhitungkan karena ada tanda ' di sebelah kiri 
dari tiap baris. Komentar juga penting untuk tracking kesalahan, 
karena Anda bisa memberi catatan tentang apa yang terjadi selama 
debugging. 


159  Penyambungan Baris 


Sebuah program bisa terdiri atas baris yang amat panjang, di mana 
ini bisa membuat susah untuk dipahami. Untuk itu Anda bisa 
memecah baris yang panjang ke baris selanjutnya, tapi dengan 
menggunakan tanda underscore — sehingga baris tersebut masih 
dianggap sebagai satu baris. 


Private Sub CommandButton1l Click () 
'contoh sambungan line 

Dim a As Integer 

az1 

Me.BackColor - 

black 
ActiveSheet.Range ("A1") .Font.Bold - 
True 


End Sub 


Tiap baris yang ada tanda ' berarti masih dianggap satu baris 
dengan baris di bawahnya. 


20 


Ir! Booki - UserFormi (Code) —el-a- ea 


| commandButtont - felick - 


Private Sub CommandButtonl Click() Le | 
'contoh sambungan line 

Dim a As Integer 

a51 

Me.BackColor - 

black 
ActiveSheet.Range ("A1") .Font.Bolji - 
True 


End Sub 


ii 5 


Gambar 1.26 Contoh penulisan kode pemisah baris dengan tanda 


15.3 Konstanta 


Bahasa VBA memiliki dua jenis konstanta, yaitu konstanta literal dan 
konstanta simbolis. Konstanta literal atau konstanta saja merupakan 
nilai tertentu, seperti angka, tanggal, atau teks yang tidak berubah 
nilainya dan digunakan sesuai nilai yang ditulisnya. 

Private Sub CommandButtonl Click () 

'contoh konstanta literal 

Dim konl As String 


konl1 - "Semarang" 
End Sub 


Sementara konstanta simbolis atau sering disebut constant adalah 
nama dari konstanta literal. Misalnya: 


Private Sub CommandButtonl Click () 
'contoh konstanta simbolis 

Const LokData - "D:Ndata" 

End Sub 


Enaknya menggunakan konstanta adalah kalau nilai konstanta 
tersebut mau diubah, tinggal diubah di konstanta saja, tidak perlu 
meng-update keseluruhan kode program. Jadi, kalau misalnya 
Lokasi data mau diubah ke “DNdatabaru”, maka yang diubah tinggal 
const LokData saja, tanpa harus mengupdate seluruh kode program. 


Biasanya konstanta didefinisikan di bagian awal kode. Ini membuat 
lebih terbaca dan perawatan menjadi lebih mudah. 
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1.6 Variabel dan Tipe Data 


Sebuah variabel adalah komponen yang sangat penting dalam 
pemrograman. Karena nilai-nilai data yang akan digunakan di 
program disimpan dalam bentuk variabel ini. 


Variabel adalah lokasi di memori yang akan menyimpan nilai dengan 
tipe tertentu. Berbeda dengan konstanta, nilai dari variabel ini bisa 
berubah sepanjang siklus hidup program. Karena itulah namanya 
variabel (vary - berubah). 


Di VBA, tiap variabel memiliki tipe data khusus, yang mengindi- 
kasikan tipe data yang disimpannya. Contohnya variabel yang 
menyimpan string teks memiliki tipe data String dan disebut variabel 
string. 


Sementara variabel yang menyimpan data integer (bilangan genap) 
memiliki tipe data integer dan disebut integer. 


Tabel berikut menampilkan beberapa tipe data variabel beserta 
jumlah memori yang dipakainya. 


Tipe Ukuran di Memori Cakupan Nilai 

Byte 1 byte 0- 255 

Boolean 2 byte True atau False 

Integer 2 byte -32,768 - 32,767 

Long (long integer) 4 byte -2,147,483,648 - 
2,147,483,647 

Single (single-precision 4 byte -3.4638 - 3.4E38 

real) 

Double (double- 8 byte -1.8E308 - 4.96324 


precision real) 


Currency (scaled 8 byte -922,337,203,685,477.5808 
: - 922,337,203,685,477.5807 
integer) 

Date 8 byte 1/1/100 - 12/31/9999 
Object 4 byte Semua Object reference 
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String Variable: 10 bytes# | Sekitar 2 miliar (65,400 
panjang string: untuk Win 3.1) Fixed length: 


Fixed: panjang string hingga #2100 


Variant 16 bytes untuk Number: sama 


angka . . 
8 Doublestring: sama seperti 


string 


User-defined Bervariasi 


161 Deklarasi Variabel 


Mendeklarasikan variabel artinya mendefinisikan tipe datanya. 
Variabel di VBA dideklarasikan sama seperti di VB, yaitu mengguna- 
kan kata kunci DIM. Atau bisa juga dengan kata kunci Private dan 
Public. 


Berikut ini contoh beberapa deklarasi untuk variabel: 


Dim Nama As String 

Dim Tanggal As Date 

Dim Angka As Integer 

Dim TinggiBadan As Single 
Dim Uang As Currency 

Dim wbk As Workbook 

Dim ch As Chart 


Sintaks yang dipakai untuk mendeklarasikan ini adalah: 


Dim namaVariabel As DataType 


Jika ada variabel khusus digunakan tanpa mendeklarasikan terlebih 
dahulu, atau dideklarasikan tanpa mendeklarasikan tipe variabelnya, 
maka VBA akan menganggapnya sebagai variabel dengan tipe data 
variant. Contohnya: 


Dim umur 
Tapi ini akan memboroskan memori Anda, karena variant membu- 
tuhkan memori lebih banyak dibandingkan tipe variabel lainnya. 


Contohnya variabel integer membutuhkan 2 byte, sementara variant 
yang menyimpan nilai yang sama akan membutuhkan 16 byte. 


Anda bisa mendefinisikan beberapa variabel dengan satu kali Dim 
seperti berikut: 
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Dim Umur As Integer, Nama As String 


Sementara kalau deklarasi seperti berikut salah: 


Dim Umur, Nama As String 


Karena kalau dideklarasi yang kedua, hanya Nama yang berjenis 
string, sementara Umur akan berjenis variant. 


Anda juga bisa memberitahukan VBA tipe variabel dengan menam- 
bahkan karakter khusus ke nama variabel. Berikut ini akhiran dari 
variabel yang menentukan jenis variabel. 


Akhiran Tipe 

» Integer 
& Long 

! Single 

# Double 
@ Currency 
$ String 


Misalnya kode menjadi: 
Dim NamaS 
NamaS - “Sherly” 


Walaupun Excel memungkinkan deklarasi variabel dan konstanta 
diletakkan di bagian manapun di prosedur, tapi disarankan mela- 
kukan pendeklarasian di bagian awal prosedur. Ini membuat program 
lebih mudah dibaca dan di-tracking. 


162 Tipe Data Numerik 


Jadi di VBA, yang termasuk tipe data numerik adalah integer, long, 
single, double dan currency. Long ini sering juga disebut long integer. 
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163 Tipe Data Boolean 


Variabel boolean adalah variabel yang isinya hanya satu dari dua ini, 
yaitu True atau False. Walaupun sangat sederhana, tapi peranannya 
sangat penting. Yaitu untuk uji logika dan mengarahkan ke mana 
flow program. 


164 Tipe Data String 


String adalah urutan karakter. Sebuah string bisa berisi karakter biasa 
(huruf, digit, dan tanda baca), maupun karakter kontrol khusus 
seperti vbCrif (karakter line feed) atau vbTab (karakter tab). 
Konstanta string ini biasanya diapit dengan tanda petik dua. 


Ada dua jenis tipe string di vba, yaitu yang panjangnya tetap, dan 
yang panjangnya variabel. Untuk mendeklarasikan string yang 
panjangnya tetap, caranya seperti berikut: 


Dim namaVariabel As String “ panjang string 

Misalnya: 

Dim namal As String “ 10 

Sementara string yang panjangnya bervariasi bisa menyimpan string 


dengan panjang yang berubah-ubah. Cara mendeklarasikannya 
seperti berikut: 


Dim namaVariabel as String 


Contohnya: 


Dim nama2 As String 


165 Tipe Data Date/ Tanggal 


Variabel date membutuhkan tempat simpan sebesar 8 byte dan 
disimpan dalam bentuk angka pecahan desimal (floating point) yang 
berkisar dari 1 Januari 100 hingga 31 Desember 9999. 


Cara mendefinisikan tipe data date adalah: 
Dim tgl As Date 


tgl - #1/2/2012# 
tgl - “January 12, 2001” 
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16.6 Tipe Data Variant 


Tipe data variant ini akan menyimpan semua jenis data, kecuali data 
string dengan panjang yang tetap. Tetapi tipe data variant diusaha- 
kan jangan sering dipakai karena memakan memori dengan ukuran 
yang sangat besar. 


167 Tipe Data Objek Excel 


VBA Excel memiliki banyak tipe data tambahan yang termasuk 
kategori tipe data objek Excel. Berikut ini beberapa di antaranya. 


Objek yang berkaitan dengan chart: 
e Axis 

e ChartTitle 

e Legend 

» Series 

e AxisTitle 

e DataLabel 

e LegendEntry 

e SeriesCollection 

e Chart 

e DataTable 

e LegendKey 

e TickLabels 

e ChartArea 

e Floor 

e PlotArea 

e Walls 

e ChartColorFormat 
e Gridlines 


e Point 
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Objek yang berkaitan dengan Pivot table: 


PivotCache 
PivotField 
PivotFormula 
Pivotltem 


PivotTable 


Objek umum: 


Comment 
Font 
Range 
Workbook 
FillFormat 
Outline 
Sheets 
Worksheet 
Filter 
PageSetup 
Window 


WorksheetFunction 


Contoh cara pendeklarasian tipe objek Excel ini seperti berikut: 


Dim FileExcel As Workbook 
Dim Sheet1 As Worksheet 
Dim Gambar1l As Chart 
Dim Axl As axis 


Dim fieldPivot1 As PivotField 
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168 Array 


Variabel array/larik merupakan kumpulan variabel yang mengguna- 
kan nama yang sama, namun dibedakan menurut nilai indeksnya. 
Misalnya untuk menyimpan nilai baris pertama dari worksheet, kita 
bisa mendeklarasikan variabel seperti berikut: 


Dim Cell(1 To 100) As Range 
Tidak ada objek sel di Excel, sebuah sel adalah objek range khusus. 


Variabel array Cell di atas memiliki ukuran 100. Batas bawahnya 
adalah 1 dan batas atasnya adalah 100. Tiap variabel adalah variabel 
range, yaitu variabel dengan tipe objek range: 


Cell(1), cel1(2),..., Cel1 (100) 

Apabila indeks pertama dihilangkan, misalnya dengan deklarasi 
seperti berikut: 

Dim Cel1(100) As Range 

VBA otomatis akan mengeset indeks ke-0 sehingga ukuran array 
akan menjadi 101. Anda bisa memanggil isi-isi range, dengan 


menggunakan loop For i-1 to 100. Contoh penggunaan array dalam 
program seperti berikut: 


For i - 1 To 100 


Set Cell(i) - Cells(i,i) 
Cell(i).Font.Bold - True 
Next 1 


1.7 VBA Operator 


VBA menggunakan beberapa operator dan relasi untuk mengopera- 
sikan data-data, baik variabel atau konstanta. Anda perlu memahami 
beberapa operator dan relasi VBA sebelum bisa melakukan 
pemrograman. 


Tipe Nama Simbol 

Operator aritmetika Penambahan 4 
Pengurangan - 
Pembagian / 
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Pembagian dengan hasil N 


integer/genap 

Eksponensial 2 

Modulus Mod 
Operator string Concatenation/Penyambungan | & 
Operator logik AND AND 

OR OR 

NOT NOT 


Relasi Perbandingan Sama dengan z 


Kurang dari « 


Lebih dari » 


Kurang dari atau sama dengan | «- 


Lebih dari atau sama dengan »- 


Tidak sama dengan LD» 


Operator Mod akan mengembalikan sisa hasil pembagian. 
Contohnya: 


8 Mod 3 


Fungsi di atas akan mengembalikan nilai 2, karena sisa pembagian 
8/3 adalah 2. 


Contoh untuk menyambung/concatenate: 


"Tegal " & "Jakarta" 


Akan sama dengan: 


"Tegal Jakarta" 


1.£ Fungei dan Subrutin 
VBA memungkinkan dua jenis prosedur, yaitu fungsi dan subrutin 


(prosedur biasa). Apa bedanya? Perbedaannya fungsi mengembali- 
kan nilai, sementara subrutin tidak mengembalikan nilai. 
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Bentuk deklarasi fungsi memiliki bentuk seperti berikut: 


IPublic atau Private) Function NamaFungsi (Paraml As TipeDatal, 
Param2 As TipeData2,...) As TipeKembalian 


Perhatikan bahwa kita tidak hanya mendeklarasikan tipe data dari 
tiap parameter di fungsi, tapi juga tipe kembaliannya. Kalau tidak 
didefinisikan, maka VBA akan mendeklarasikan item sebagai varian. 


Adapun Public atau Private berguna untuk mengindikasikan skop 
dari fungsi, sebagaimana dideklarasi variabel. 


Contoh fungsi seperti berikut: 


Public Function TambahkanSatu (Value As Integer) As Integer 
TambahkanSatu - Value #1 
End Function 


Untuk memanggil fungsi, kita tinggal meletakkan panggilan dengan 
mengetikkan nama fungsi di lokasi yang diinginkan. Contohnya 
adalah kalau mau memasukkan di messagebox adalah: 


MsgBox "Menambahkan 1 ke angka 5 menghasilkan: " & 
TambhkanSatu (5) 


Ini akan menghasilkan nilai 6, karena fungsi TambahkanSatu akan 
menambahkan value di dalam kurung dengan angka satu. Untuk 
mengembalikan nilai dari fungsi, kita harus memberikan nama fungsi 
ke value yang ingin dikeluarkan di dalam body dari fungsi. 


Berikut ini contoh lainnya: 


Function HitungSel() As Variant 
' Mengembalikan jumlah sel di seleksi yang ada 


If TypeName (Selection) - "Range" Then 
HitungSel - Selection.Count 

Else 
HitungSel - "Tidak bisa" 

End If 


End Function 


Fungsi ini akan mengembalikan jumlah sel di selection yang dipilih. 
Jika selection memilih objek yang lain seperti chart, maka fungsi 
akan mengembalikan pesan “Tidak bisa”. 


Karena nilai kembalian bisa berupa angka atau string maka kita 
mendeklarasikan hasil kembalian sebagai variant. 


Karena fungsi ini mengembalikan value, maka Anda tidak bisa 
memanggilnya secara langsung dari kotak dialog macro yang 
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muncul ketika merekam sebelumnya, tapi Anda perlu membung- 
kusnya dalam bentuk subrutin atau prosedur. 

Adapun subrutin memiliki bentuk sintaks seperti berikut: 

IPublic atau Private) Sub NamaSubRutin(Paraml As TipeDatal, 


Param2 As TipeData2,...) 


Sintaks ini mirip dengan deklarasi fungsi, hanya saja tidak memiliki 
As TipeKembalian. Selain itu ada juga yang tidak bisa digunakan di 
dalam ekspresi. Untuk memangdil subrutin dengan nama SubrutinA 
misalnya, maka kita bisa menuliskan: 


Call SubrutinA (parameter, . . .) 


Atau lebih simpel: 
SubrutinA parameter, 


Pastikan bahwa semua parameter harus diberi tanda kurung ketika 
menggunakan Call, tapi kalau satunya tidak perlu. 


181 Parameter dan Argumen 


Parameter dan argumen fungsinya penting dalam fungsi atau 
subrutin. Contohnya pada subrutin seperti berikut ini: 
Sub TampilkanNama (sNama As String) 


MsgBox "Nama Anda adalah" & sNama 
End Sub 


Untuk memanggil subrutin ini, kita tinggal mengetikkan seperti 
berikut: 


TampilkanNama "Sherly" 


Atau: 


Call TampilkanNAma ("Sherly") 


Variabel sNama dideklarasi prosedur: 


Sub TampilkanNama (sNama As String) 


Disebut parameter dari prosedur. Panggilan prosedur harus berisi 
variabel string atau string literal yang direpresentasikan oleh variabel 
sNama di prosedur ini. Parameter yang dimasukkan di prosedur ini 
disebut argumen. Sehingga pada contoh di atas, argumennya adalah 
string “Sherly”. 
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189 Argumen Opsional 


Di VBA, argumen-argumen pada sebuah prosedur bisa ditentukan 
sebagai opsional menggunakan kata kunci Optional. Contoh peng- 
gunaan argumen opsional seperti berikut: 


Sub UbahFormat (NamaFont As String, 
Optional UkuranFont As Variant) 


' Ubah nama font 
Selection.Font.Name - NamaFont 


' Ubah ukuran font jika argumen dimasukkan 

If Not IsMissing(UkuranFont) Then 
Selection.Font.Size - CInt(UkuranFont) 

End If 

End Sub 


18.3 Keluar dari Prosedur 


VBA menyediakan statement Exit Sub dan Exit Function statements. 
Ini dipakai untuk keluar dari prosedur atau fungsi sebelum prosedur 
atau fungsi tersebut berhenti secara alami. 


Misalnya kalau nilai dari parameter tidak cocok, kita ingin menam- 
pilkan warning ke user dan program keluar. Contoh penggunaan Exit 
statement ini adalah: 


Sub TampilkanNama (sNama As String) 
If sNama - "" then 
Msgbox "Tolong masukkan nama." 
Exit Sub 
End If 
MsgBox "Nama yang dimasukkan adalah " & sNama 
End Sub 


184 Prosedur Public dan Private 


Sebagaimana variabel dan konstanta memiliki skope, begitu pula 
prosedur juga memiliki skope. Kita bisa mendeklarasikan prosedur 
menggunakan kata kunci Public atau Private. Contohnya: 


Public Function TambahkanSatu(i As Integer) As Integer 


Atau: 


Private Function TambahkanSatu(i As Integer) As Integer 
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Apa perbedaan skope dari Public atau Private? 


Prosedur Private hanya bisa dipanggil dari dalam modul tempatnya 
didefinisikan, sementara prosedur Public bisa dipanggil dari modul 
manapun di proyek. 


Perhatikan bahwa jika kata kunci Public atau Private dihilangkan dari 
deklarasi prosedur, maka prosedur ini akan dianggap Public. 


1.9 Fungei dan Statement Penting yang Sudah Built In 


VBA memiliki banyak fungsi dan statement yang built ini. Anda perlu 
sekali memahaminya karena ini akan membantu Anda dalam mem- 
permudah pemrograman. Dari semua fungsi dan statement yang 
sudah built in, ada beberapa yang sering dipakai. 

Berikut ini beberapa fungsi bawaan/built in dari VBA Excel: 

e# Abs 

e DoEvents 

e IsEmpty 

e Right 

e Array 

e Environ 

e IsError 

e RightB 

e Asc 

e EOF 

e IsMissing Rnd 

e AscB 

e Error 

e IsNull Round” 

e AscW 

» Exp 

e IsNumeric 

e RTrim 

6» Atn 
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» FileAttr 

e# IsObject 

e Second 

e CallByName" 
e# FileDateTime 
e Join” 

» Seek 

e Cbool 

»# FileLen 

e Lbound 

e Sgn 

e Cbyte 

e Filter“ 

e Lcase 

» Shell 

e Ccur 

e Fix 

e Left 

e Sin 

e Cdate 

e Format 

e LeftB 

» SLN 

e CDbl 

e FormatCurrency" 
e Len 

» Space 

» Cdec 

e FormatDateTime 
» LenB 

» Spc 


x 


e Choose 
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FormatNumber”" 


LoadPicture 
Split" 

Chr 
FormatPercent” 
Loc 

Sgr 

ChrB 

FreeFile 


Log 

StrComp 

Cint 
GetAllSettings 
Ltrim 

StrConv 

CLng 

GetAttr 

Mid 

String 
Command 
GetAutoServerSettings 
MidB 
StrReverse" 
Cos 
GetObject 
Minute 

Switch 
CreateObject 


e GetSetting 
e MIRR 

. SYD 

e CSng 

» Hex 

e Month 

e Tab 

e CStr 

e Hour 

e MonthName” 
e Tan 

e CurDir 

e Tif 

e MsgBox 

» Time 

e Cvar 

e IMEStatus 
« Now 

e Timer 

e CVDate 

e Input 

e Nper 

# TimeSerial 
e CVErr 

e InputB 

e NPV 

e TimeValue 
e Date 

e InputBox 

e Oct 

e Trim 

e DateAdd 
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e InStr 

e Partition 

e TypeName 
e DateDiff 

e InStrB 

e Pmt 

e Ubound 

e DatePart 

e InstrRev“ 
e PPmt 

e UCase 

e DateSerial 
e Int 

e PV 

e# Val 

e DateValue 
e Ipmt 

e ABColor 

e VarType 

e Day 

e IRR 

e# Rate 

e WeekdayWeekdayName" 
. DDB 

e IsArray 

e Replace" 
e Year 

e Dir 

e IsDate 

e RGB 


Fungsi yang diberi tanda bintang (") adalah fungsi dari VBA versi 
terakhir. Dari beberapa fungsi dan prosedur di atas, tidak semua 
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fungsi penting dan lazim digunakan. Kita akan membahas fungsi- 
fungsi yang paling sering dipakai. 


191 Fungsi MsgBox 


MsgBox adalah fungsi untuk menampilkan message box alias kotak 
pesan. Fungsi ini akan menampilkan kotak pesan dan menunggu 
input dari user yang akan mengklik tombol di sini. 


Sintaks yang akan digunakan adalah: 


MsgBox (prompt I, button) I, title)) 


Ini bukanlah sintaks lengkap dari fungsi ini, karena ada beberapa 
parameter yang dihilangkan. Untuk melihat lebih detail, Anda bisa 
melihat dokumentasi help dari VBA. 


Prompt adalah parameter string yang berisi pesan yang akan 
ditampilkan di dialog. Perhatikan bahwa tampilan pesan multiline 
bisa dibuat menggunakan konstanta vbCrLf di dalam pesan. 


Button adalah parameter bertipe long yang menentukan properti dari 
berbagai nilai message box. Properti ini akan menentukan angka dan 
tipe button yang akan ditampilkan, style ikon yang akan dipakai, 
identitas button default, serta tipe dari messagebox. 


Contohnya kotak dialog sistem akan tetap di atas dari semua window 
dan akan meng-capture fokus input dari sistem secara keseluruhan. 
Sementara kotak dialog box yang model aplikasi akan di atas dari 
semua jendela aplikasi saja, dan hanya akan meng-capture fokus 
dari aplikasi saja. 


Beberapa tipe button yang didefinisikan di VbMsgBoxStyle adalah: 


Tujuan Konstanta Nilai Deskripsi 
Tipe Button vbOKOnly 0 Menampilkan tombol OK 
saja. 
vbOKCancel 1 Menampilkan tombol OK 
dan Cancel. 
vbAbortRetrylIgnore | 2 Menampilkan tombol 
Abort, Retry, dan Ignore. 
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vVbYesNoCancel 3 Menampilkan tombol 
Yes, No, dan Cancel 
buttons. 
VbYesNo 4 Menampilkan tombol 
Yes dan No. 
vbRetryCancel 5 Menampilkan tombol 
Retry dan Cancel. 
Tipe Icon vbCritical 16 Menampilkan ikon pesan 
kritis. 
vbOuestion 32 Menampilkan ikon guery 
warning. 
vbExclamation 18 Menampilkan ikon pesan 
warning. 
vbInformation 64 Menampilkan ikon pesan 
Information. 
Tombol Default | vbDefaultButton1 0 Tombol pertama adalah 
default. 
vbDefaultButton2 256 Tombol kedua adalah 
default. 
vbDefaultButton3 512 Tombol ketiga adalah 
default. 
vbDefaultButton4 768 Tombol keempat adalah 
default. 
Modality vbApplicationModal | 0 Application modal 
message box. 
vbSystemModal 4096 System modal message 


box. 


Contohnya Anda bisa membuat form, kemudian di event click dari 
command button-nya, Anda bisa memberi kode seperti berikut: 


Private Sub CommandButton1l Click () 


MsgBox "Lanjutkan Proses?", vb0uestion #t vbYesNo 


End Sub 
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Apabila dijalankan, akan muncul message box seperti berikut ini. 


UserForm1 & |) 


MsgBox -. 
esalaama 
ITE 2” 


@ Lanjutkan Proses? 
- » 


Gambar 1.27 Tampilan message box yang dibuat 
menggunakan fungsi MsgBox 


Ada parameter title yang menunjukkan parameter string yang 
ditampilkan di title bar dari message box. Jika ini dihilangkan, maka 
yang akan ditampilkan adalah tulisan “Microsoft Excel”. 


Fungsi MsgBox dapat mengembalikan fungsi yang menjelaskan 
button mana yang dipilih. Nilai angka dari pengembalian fungsi ini 
seperti berikut. 


Konstanta Nilai Deskripsi 

vbOK 1 Tombl OK ditekan 
vbCancel 2 Tombol Cancel ditekan 
vbAbort 3 Tombol Abort ditekan 
vbRetry 4 Tombol Retry ditekan 
vblgnore 5 Tombol Ignore ditekan 
vbYes 6 Tombol Yes ditekan 
vbNo 7 Tombol No ditekan 


199 Fungsi InputBox 


Kalau fungsi MsgBox digunakan untuk menampilkan pesan kepada 
user, maka fungsi InputBox ini digunakan untuk menerima masukan 
dari user. Sintaks dari InputBox yang paling sering dipakai adalah: 
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InputBox (prompt I, title) I, default)J) 


Di mana prompt di atas adalah pesan yang akan ditampilkan di 
InputBox. Title adalah judul untuk input box, dan default adalah teks 
awal yang ditampilkan di input box. 

sNama- InputBox ("Masukkan pekerjaan Anda?", "Pekerjaan", 


"Salesman" ) 


Kode di atas akan menampilkan tampilan seperti berikut. 


Userformi 8 


Pekerjaan 


Masukkan pekerjaan Anda? OK 


Cancel 


(Salesman 


Gambar 1.28 Contoh inputBox yang dimasukkan dari button InputBox 


Fungsi InputBox ini akan mengembalikan string yang dimasukkan 
oleh user ke textbox. Pada contoh di atas, variabel string sNama 
akan berisi string hasil pemasukan user. Kalau Anda mau mengambil 
inputan berupa angka, Anda bisa mengonversi string yang dikem- 
balikan ke bentuk angka dengan fungsi Val. 


193 Beep 


Statement ini sangat simpel, cuma mengetikkan Beep. Ini akan 
menghasilkan suara dari komputer yang membuat user bisa fokus 
pada hal tertentu sesuai keinginan programmer. 

Private Sub CommandButton3 Click () 


Beep 
End Sub 
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110 Statement Control 


Untuk bisa mengendalikan kontrol pemrograman, kita harus menge- 
nal beberapa sintaks untuk mengatur flow dari program. Ini akan 
mengarahkan ke mana program akan dieksekusi. 


1101 Statement If-Then 


Statement If Then digunakan untuk pengaturan kondisional. Sintaks 
dari If Then adalah: 


If kondisi Then 

' Statement di sini. . . 
ElseIf kondisiLainnya Then 
' statement di sini . . . 
Else 
' Statement lain di sini. . . 
End If 


Kita bisa membuat statement lebih dari ini. 


Oke langsung praktik, kita akan menerapkan statement If Then ini 
untuk membuat pola warna yang berselingan untuk baris genap dan 
ganjil seperti berikut: 


1. Masukkan button dengan caption - “If Then else” di form. 


UserForml 


Gambar 1.29 Memasukkan form If Then Else 


2. Set properti ShowModal dari form menjadi False agar Anda bisa 
menyeleksi sel ketika program ini dijalankan. 
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Properties - UserForml xl 
UserFormi1 UserForm 8 
Alphabetic | Categorized | 


False 

False 

0 - fmSgrollBar: 
o 


(0) 
je) 
jo) 


False sid Cd 


0 - fmSpedalEf| - 


op 
| WhatsThisButtor False 


Gambar 1.30 Set properti ShowModal menjadi False 


3. Klik 2x pada button. Untuk memberikan kode ke dalam prosedur 
ButtonClick dari button ini. 


If Then Else 


Gambar 1.31 Klik 2x pada button If Then Else 


4. Kode yang dimasukkan seperti berikut: 


Private Sub CommandButton4 Click () 

Dim pilihanSel As Range 

'memilih sel genap atau ganjil, 

'kemudian mengeset warna untuk tiap baris 


For Each pilihanSel In Selection.Cells 
If (pilihanSel.Row Mod 2) - 1 Then 
' ganjil 
pilihanSel.Interior.ColorIndex - 2 
Else 
' genap 
pilihanSel.Interior.ColorIndex - 1 
End If 
Next 
End Sub 


43 


5. Kemudian jalankan program dengan klik pada tombol Run. 


2 Microsoft Visual Basic for Applications - Buku.xIsm - (UserForm1 (Code 


III File Edit View Insert Format Debug Run Tools Add-in 
kd LUKA 9 Kagak NG 
Project - VBAProject x| Commar Run Sub/UserForm (F5) 


Al F3 Ia bai 
Gambar 1.32 Jalankan program dengan klik Run 


6. Anda bisa memilih range tertentu. 


A B CO bal? E Lis Ws. Kasal bas “Desi TI 


z 
z 
z 


olelulajula wine 


s 


Gambar 1.33 Memilih range tertentu 


7. Kemudian klik pada tombol If Then Else untuk melihat pengaruh 
statement If Then Else terhadap range dari sel yang Anda pilih 
sebelumnya. Range genap menjadi gelap, sementara range 
ganjil menjadi tidak gelap. 


A B Cc D E F c H 1 j K L M N c 
1 
2 
3 
4 UserFormi bg 
3 | 
s Na | 
Ti | MsgBox 
8 Ba ii | 
3 InputBox 
10 AA 
1 Beep 
12 en T.A T.A 
» 
1 ——ooooooo | 
15 | 
15 


Gamba 1.34 Range ganjil dan genap menjadi berwarna beda 
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110.2 For Loop 


Statement For...Next adalah statement yang memudahkan Anda 
membuat pengulangan untuk melakukan loop pada beberapa blok 
kode. Loop pertama adalah For loop. Sintaks yang dipakai seperti 
berikut: 

For konter - start To end 


' Kode blok di sini. 
Next konter 


Pertama kali blok kode dieksekusi, variabel konter akan bernilai awal, 
sementara kalau sudah loop, maka konter akan ditambahkan 
dengan satu. Ketika konter sudah melebihi nilai akhir, maka blok 
kode tidak akan dieksekusi lagi. 


Jadi, blok kode akan dieksekusi berulang sebanyak konter akhir - 
konter awal # satu. 


Langsung praktik saja. Berikut ini contoh penggunaan For Loop 
untuk mencari apakah ada sel yang berisi tanggal/date di range dan 
kemudian memberi warna dan background yang berbeda untuk sel 
yang berisi date tersebut. 


Caranya seperti berikut: 


1. Tambahkan button dengan caption “For Loop” di Form. 


Fe 
"#1 Microsoft Visual Basic for Applications - Buku.xlsm - (Buku.xIsm - UserForm1 Userform)) Ma lesi tai 

3 File Edit View Insert Format Debug Run Tools Add-lIns Window Help 

NE MDA bak YNFSRO 

Project - VBAProject xd 

1 Toolbox jasa aj 


Controls 
RA MsgBox 
EK 


InputBox 


Beep 


'CommandButi CommandButto -) If Then Ese 


Alphabetic | categorized 


1 - fmBackStyik 
False 
For Loop 


IM 33000001 
IHeiaht 24 ai 


Gambar 1.35 Tambahkan button dengan caption For Loop 
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2. Isikan kode berikut di dalamnya, kode ini akan memilih apakah 
ada sel yang berisi tanggal/date, dan kemudian memberikan 
warna font dan background ke sel yang berisi date tersebut. 


Private Sub CommandButton5. Click () 
Dim i As Integer 
Dim pilihanSel As Range 


For i - 1 To Selection.Count 
' Mendefinisikan seleksi 
Set pilihanSel - Selection.Cells(i) 


' Memberi warna dan background 
' kalau data di seleksi berupa date 


If IsDate(pilihanSel) Then 
pilihanSel.Font.ColorIndex - 2 
pilihanSel.Interior.ColorIndex - 1 

End If 

Next i 


End Sub 


3. Kalau dijalankan program, user membuat sel-sel yang acak, ada 
teks dan ada date. 


Jakarta 05/06/2011 06/06/2010 


03/06/2012 Semarang 01/01/2012 
03/04/1999 01/05/2015 Jogjakarta InputBox 


Beep 
IfThen Else 


For Loop 


Gambar 1.36 User membuat isi sel yang acak 


4. Seleksi pada range sel tersebut, dan klik tombol For Loop. 


Jakarta 05/06/2011 06/06/2010 
03/06/2012 Semarang 01/01/2012 


03/04/1999 01/05/2015 Jogjakarta || 


Beep 


If Then Else 


ForLoop ) 


Gambar 1.37 Klik tombol For Loop pada seleksi 
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5. Maka sel-sel yang bertipe Date, akan berisi teks yang berbeda, 
dan memiliki background yang berbeda. 


5 


PELCLCMMN 05/06/2011 06/06/2010 
03/06/2012 01/01/2012 


03/04/1999 01/05/2015 WkfanLasai 


If Then Else 


Gambar 1.38 Sel yang berisi tanggal akan berwarna beda 


Contoh praktik kedua penggunaan For Loop adalah untuk mencari 
teks di sel tertentu (misalnya kolom A) dari Excel. Ikuti langkah- 
langkah praktik berikut untuk membuat contoh penggunaan For 
Loop kedua: 


1. Buat sebuah button dan ganti caption-nya dengan “Cari”. 


BI mt 


po ! s 
: : : If Then Else : : 
| : : For Loop | : : 


Gambar 1.39 Masukkan button “Cari” di form 


2. Kemudian klik 2x pada button tersebut dan isikan kode berikut: 


Private Sub CommandButton6 Click () 

Dim sNama As String 

sNama - InputBox ("Teks Apa Yang Mau Dicari?", "Pencarian", 
"isikan") 

Me.Cari String (sNama) 

End Sub 
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3. Pada kode di atas, ada panggilan ke fungsi Cari string(). Oleh 
karena itu, di bawah prosedur pada form, isikan kode berikut: 


Sub Cari String(sTeksPencarian As String) 


Dim i As Integer 

' Integer yang mau dipakai untuk loop 'For' 
Dim iHasilPencarian As Integer 

' integer untuk menyimpan nilai 


iHasilPencarian - 0 
' Loop di kolom A hingga ditemukan. 


For 1-6 41 To 1lO0 
If Cells(i, 1).Value - sTeksPencarian Then 


' kalau ditemukan baris kolom akan dicatat 
iHasilPencarian - i 
Exit For 


End If 
Next 1 
' Menampilkan message box 
If iHasilPencarian - 0 Then 

MsgBox "String " & sTeksPencarian & " tidak ditemukan" 
Else 
MsgBox "String " & sTeksPencarian & " ditemukan di sel 
A" & iHasilPencarian 
End If 


End Sub 


4. Sekarang jalankan program. Dan ketikkan beberapa teks di 
kolom A. 


Gambar 1.40 Kolom-kolom di A berisi teks 
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5. Kemudian klik tombol Cari, muncul input box, isikan teks yang 
akan dicari, misalnya kota “Bandung”. 


Teks Apa Yang Mau Dicari? 
Cancel | 


Bandunal 


Gambar 1.41 Pengisian teks yang akan dicari 


6. Maka kalau teks yang dicari ada di kolom A, maka ada 


7. 


messagebox yang menjelaskan lokasi string tersebut. 


String Bandung ditemukan di sel A4 


Gambar 1.42 Lokasi string ditemukan di kolom A 


Kalau tidak ada yang ditemukan, muncul messagebox yang 
menjelaskan bahwa string yang dicari tidak ditemukan. 


Microsoft Excel Pa 


String Kediri tidak ditemukan 


Gambar 1.43 Messagebox yang menyatakan string tidak ditemukan 
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110.3 Statement Select Case 


Seperti telah dijelaskan sebelumnya, konstruk If Then digunakan 
untuk mengatur flow program berdasarkan berbagai kemungkinan. 
Begitu pula Select Case ini, fungsinya kurang lebih sama, hanya saja 
cocok digunakan kalau fitur kemungkinannya lebih banyak. 


Sintaks dari statement Select Case ini adalah: 


Select Case EkspresiTes 
Case valuel 
' statement yang akan dieksekusi jika EkspresiTes - valuel 
Case value2 
' statement yang akan dieksekusi jika EkspresiTes - value2 


Case Else 
' statement yang akan dieksekusi jika tidak ada yang sesuai 
dengan case yang sudah disebutkan sebelumnya. 
End Select 


Bagian Case Else sifatnya opsional, jadi Anda tidak wajib untuk 
menyertakannya. Berikut ini contoh penggunaan Select Case untuk 
Excel VBA: 


1. Masukkan tombol baru di form, dan ganti namanya dengan 
Select Case. 


Select Case 


: : If Then Else : 


Gambar 1.44 Memasukkan button dengan Select case 


2. Klik 2x pada tombol Select Case. 
3. Isikan kode berikut: 
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Private Sub CommandButton7. Click () 
' Mengecek apakah teks antara huruf A dan 
Select Case Range("C2") .Text 


isa 


Case "A" To "EBzzzz2zz" 


Range ("C3") .Value - "Ada di antaranya" 


Case Else 
Range ("C3") .Value - "Tidak ada diantaranya" 


End Select 
End Sub 


4. Apabila dijalankan, kemudian di sel C2, Anda menuliskan kata 
yang hurufnya antara huruf A dan E (misalnya Buaya), lalu klik 
Select Case. 


A B is AE E F G H 1 j 
1 
5 s5 
5 Hi Babi 
4 
5 
6 MsgBox Cari 
7 
8 InputBox mail 
9 
10 Beep 
u 
» IfThen Else 
13 
1 For Loop 
15 
16 


Gambar 1.45 Klik pada Select Case 


5. Maka di sel C3, muncul tulisan bahwa huruf tersebut ada di 
antara A dan E. 


A B c | 0 E F G H 1 


Buaya 
Ibas di antaranya 1 


Bab 1 » 


MsgBox Cari 


9 
ab sabatad Select Case 
10 ag, 


11 Beep 


13 If Then Else 


15 For Loop 


Gambar 1.46 Huruf ada di antara A dan E 
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6. Sekarang coba ketikkan huruf di C2 yang tidak ada di antara A 
dan E. 


Korea 


Bab 1 » 


If Then Else 


For Loop 


Sie iele le ejek 
Sisi is is ik is Is Jo Je Tn Jan Jam Tom Jb 
g 
8 


18 


Gambar 1.47 Pengetikan huruf yang tidak ada di antara A dan E 


7. Kalau diklik Select Case, ada tulisan Tidak ada di antaranya. 


Ae IST c D E F G H 


Korea 


Kar ada diantaranya 1 
sn f | 


Bab 1 


MsgBox Cari | 


Input 
Tenan Select Case 


Beep 


If Then Else 


For Loop 


ale lea lele le Jelek 
esis sisik isis Io Je aa ja ja Jeli (mb 


Gambar 1.48 Ada tulisan “Tidak ada di antaranya” 


1.11 Objek dan Funggi Excel 


Untuk melakukan pemrograman dengan optimal di Excel meng- 
gunakan VBA, Anda harus lebih mengenal objek dan fungsi Excel. 
Subbab berikut ini menjelaskan beberapa objek dan fungsi Excel. 
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1111  Fungsi-Fungsi yang Berkaitan dengan File 


VBA memiliki banyak fungsi yang berkaitan dengan file dan direktori. 
Berikut ini beberapa fungsi penting yang perlu Anda ketahui untuk 
melakukan pemrograman berkaitan dengan penanganan file dan 
direktori. 


Fungsi Deskripsi 

Dir Mencari file dengan nama tertentu. 
FileLen Memperoleh panjang dari file. 
FileTimeDate Mengambil tanggal stamp dari file. 
FileCopy Menyalin file. 

Kill Menghapus file. 

Name Rename file atau direktori. 

RmDir Menghapus direktori. 

MkDir Membuat direktori baru. 


119 Event Worksheet 


Model objek dari Excel memiliki beberapa objek, seperti AppEvents, 
DocEvents, ChartEvents, WorkBookEvents, OLEObjectEvents, dan 
RefreshEvents. Event-event yang diasosiasikan dengan worksheet 
misalnya, adalah method dari objek DocEvents yang merupakan 
anakan dari objek Worksheet dan objek Chart. 


Berikut ini event-event yang berkaitan dengan worksheet. Event ini 
juga dianggap sebagai event dokumen. 


Nama Event Deskripsi 
Activate Terjadi ketika worksheet diaktifkan. 
BeforeDoubleClick Terjadi ketika worksheet diklik ganda, dan tepat 


sebelumnya event ini akan dipicu. 


BeforeRightClick Terjadi ketika worksheet diklik kanan, sebelum 
action default dari klik kanan. 
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Calculate Terjadi setelah worksheet dikalkulasi ulang. 

Change Terjadi ketika sel di worksheet diubah oleh user 
menggunakan link eksternal. 

Deactivate Terjadi ketika worksheet dinonaktifkan. 

PivotTableUpdate Terjadi ketika laporan PivotTable di-update pada 
worksheet. 

SelectionChange Terjadi ketika ada perubahan seleksi di worksheet. 


1113 Event Workbook 


Event workbook berkaitan erat dengan file Excel secara keseluruhan 
(workbook). Beberapa event penting di workbook ini dapat dilihat di 
tabel berikut. 


Nama Event Deskripsi 
Activate Terjadi ketika workbook diaktifkan. 
Addinlnstall Terjadi ketika workbook diinstal 


sebagai add in. 


AddinUninstall Terjadi ketika workbook di-uninstall 


sebagai add-in. 
BeforeClose Terjadi sebelum workbook ditutup. 


BeforePrint Terjadi sebelum workbook dicetak. 


BeforeSave Terjadi sebelum workbook disimpan. 

Deactivate Terjadi ketika workbook 
dinonaktifkan. 

NewSheet Terjadi ketika sheet baru dibuat di 
workbook. 

Open Terjadi ketika workbook dibuka. 


PivotTableCloseConnection (Excel 10 
only) 


Terjadi setelah PivotTable menutup 
koneksi ke data source. 
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PivotTableOpenConnection(Excel 10 
only) 


Terjadi setelah PivotTable membuka 
koneksi ke data source-nya. 


SheetActivate 


Terjadi ketika ada sheet yang 
diaktifkan. 


SheetBeforeDoubleClick 


Terjadi ketika ada worksheet diklik 2x, 
ini terjadi sebelum klik 2x terjadi. 


SheetBeforeRightClick 


Terjadi ketika ada klik kanan di 
worksheet, terjadi tepat sebelum 
adanya klik kanan. 


SheetCalculate 


Terjadi setelah ada worksheet 
direkalkulasi. Atau ada data yang 
diubah sudah diplot di chart. 


SheetChange Terjadi ketika sel di worksheet diubah 
oleh user atau oleh link eksternal. 
SheetDeactivate Terjadi ketika ada sheet yang 


dinonaktifkan. 


SheetSelectionChange 


Terjadi ketika ada perubahan seleksi 
di worksheet. Tidak akan terjadi jika 
seleksi di sheet chart. 


WindowActivate 


Terjadi hanya ketika jendela 
workbook diaktivasi. 


WindowDeactivate 


Terjadi ketika ada workbook 
dinonaktifkan. 


WindowResize 


Terjadi ketika jendela workbook di- 
resize. 


1114 Event Chart 


Chart adalah grafik yang lazim ada di worksheet. Anda bisa melihat 
beberapa event dari chart dengan melihat tabel berikut ini. 


Nama Event Deskripsi 


Activate 


Terjadi ketika sheet chart atau chart yang di- 
embedded diaktifkan. 
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BeforeDoubleClick 


Terjadi ketika embedded chart diklik 2x, ini terjadi 
tepat sebelum klik 2x tersebut. 


BeforeRightClick 


Terjadi ketika chart embedded diklik kanan, ini terjadi 
tepat sebelum klik kanan terjadi. 


Calculate Terjadi setelah chart memplot data baru atau data 
yang berubah. 

Deactivate Terjadi ketika chart dinonaktifkan. 

DragOver Terjadi ketika range sel di-drag di atas chart. 

DragPlot Terjadi ketika range sel di-drag dan di-drop ke chart. 

MouseDown Terjadi ketika tombol mouse diklik sementara pointer 
sedang ada di atas chart. 

MouseMove Terjadi ketika posisi pointer mouse berubah di atas 
chart. 

MouseUp Terjadi ketika tombol mouse dilepas, sementara 
pointer ada di atas chart. 

Resize Terjadi ketika chart di-resize. 

Select Terjadi ketika elemen chart dipilih. 


SeriesChange 


Terjadi ketika user mengubah nilai dari poin data di 
chart. 
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